home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / otto11.zip / GETSTOCK < prev    next >
Text File  |  1992-02-07  |  459b  |  25 lines
  1. ;gets a couple of stock quotes
  2.  
  3. w c "!"
  4. "go BASICQUOTE|"
  5. w c "Issue: "
  6. "Φ86 "          ;initiate capture (Autosig unique, change for your program)
  7. w c "name: "
  8. "stocks|"       ;store data is "stocks" file
  9. w 1
  10. "FMAGX|"        ;Fidelity Magellean
  11. w c "Issue: "
  12. "MSFT|"         ;Microsoft
  13. w c "Issue: "
  14. "AAPL|"         ;Apple Computer
  15. w c "Issue: "
  16. "IBM|"          ;guess
  17. w c "Issue: "
  18. "Φ86 "          ;end capture
  19. w .5
  20. "|"
  21. w c "!"
  22. end
  23.  
  24.  
  25.